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Junte a capacidade de manusear dados 
com as funções gráficas do seu 

micro e desenvolva programas capazes 
de mostrar em um gráfico 

qualquer tipo de informação numérica. 


Armazenamento e processamento de 
dados são atributos típicos de qualquer 
computador. Contudo, não é fácil para 
o usuário assimilar grandes quantidades 














de informações. Se nos apresentarem, 
por exemplo, uma lista contendo milha- 
res de números, é muito dificil interpre- 
tar seu significado. 

Para entender melhor, dê uma olha- 
da na seguinte lista: 132.9, 146.2, 
132.89, 123.92, 147.01, 153.47, 132.09, 
138.79, 147.57, 153.9, 140.04, 142.76, 
152.76, 132.6, 135.09, 146.98. Agora 
responda rapidamente às seguintes per- 
guntas: qual é o maior número da lis- 
ta? Qual a sua posição na lista? Quan- 
tos números menores que 135.5 há nela? 








Como você vê, não é muito fácil dar 
respostas rápidas a essas questões. Ima- 
gine se a quantidade de números fosse 
cinco vezes maior! 

A maneira tradicional de tratar esse 
tipo de problema consiste em colocar a 
informação em um gráfico. Quando is- 
to é feito, torna-se fácil perceber qual 
é o ponto mais alto. Assim, com o au- 
xílio de uma régua na posição horizon- 
tal, podemos verificar quais os valores 
que estão acima ou abaixo de um deter- 
minado valor. 





No artigo Rena Seus Dados em Grá- = 
ficos (página 181), apresentamos um 
programa que mostra, sob a forma de 39 pLroT 0,76 
um gráfico de barras, dados introduzi- 40 FOR t=0 TO PI*10 STEP .3 
dos no computador. O presente artigo so DRAW 2,CoS t*15 
trata das técnicas necessárias à confec- 60 NEXT t 
ção de gráficos lineares. Em lições pos- 
teriores, abordaremos os histogramas e hy 
outros tipos de gráfico. 
Como as rotinas deste artigo vão COLOR 1,15,1 
além das capacidades gráficas do ZX-81 O SCREEN 2 
e do TRS-80, não apresentaremos pro- 30 DRAW "BM0,95" 
gramas para tais micros. FOR T=0 TO 40*ATN(1) STEP .0 






” $ O LINE -(8B*T,95-40*SIN(T)) 
GRÁFICOS DE FUNÇÕES MATEMÁTICAS O NEXT 
EPT qa Sm 150 GoTo 150 
A estrutura de um programa depen- 
de do tipo de informação que queremos é] [3] 
mostrar na tela. Quando há uma relação 
matemática ligando os dados, podemos | HOME : HGR : HCOLOR= 3 
usar uma função matemática. Os micro- ) HPLOT 0,145 
computadores são dotados, por exem- FOR T = O TO 279 STEP 4 
plo, de funções trigonométricas — se. “a Pair TO T,95 + 50 * cos 
no, cosseno e tangente — que tor- “Mb a 
nam fácil o traçado de curvas co END 
cíclicas, como já foi explica- 
do em artigos anteriores, 
"Ou como demonstra o 
seguinte programa: E DMODE 3.3 
| 20 PCLS 
25 SCREEN 1,1 
30 DRAW"BMO,95" 
40 FOR T=0 TO 40*ATN(1) STEP.06 
50 LINE-(8*T,95-40*SIN(T)),PSET 
60 NEXT 
150 GoTo 150 
Esse programa traça uma curva se- 
nóide, que tem muitas aplicações em 
e pttacia: tecnologia, música e traçados 
“gráf icos. A linha 40 estabelece que a cur- 
— va terá cinco ciclos ne no Apple). | 
a cicl éd Ryeses Ea pan é | 
R 8 E di v bos: pé 
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à página 354). Alterando os valores nes- 
sas linhas (linha 50 no Apple), podemos 
variar consideravelmente a forma da 
curva. 

O micro tem um número limitado de 
funções embutidas, prontas para serem 
usadas, mas qualquer função matemá- 
tica pode ser desenhada, desde que a de- 
finamos dentro de um programa, 

Acrescente as próximas linhas ao pro- 
grama e execute-o novamente, 


70 PLOT 0,60 
80 FOR n=1 TO 220 STEP 5 
90 DRAW 5, ((110-n)*15)/200 


100 NEXT n 

110 PLOT 0,100 

120 FOR n=1l TO 220 STEP 5 
130 DRAW 5,-((110-n)*15)/200 
140 NEXT n 

15 D=1:E=64 

70 COLOR 4 

80 DRAW"BMO,"+STRS (INT (109*D+E) 
) 

90 FOR T=-127 TO 128 

100 LINE -(127+T, TAT/150*D+E) 
110 NEXT 

120 IF D=-1 THEN 150 

130 D=-1:E=E+64:COLOR 6 

140 GoTo 80 


Léo! 


5 D= )1:E = 64 
70 HCOLOR= 5 


80 BHPLOT 0,64 * D+ E 

90 FORT = - 139 TO 140 

100 HPLOT TO J)IG + TTÃNATA 
160 * D+ E 

110 NEXT 

120 IFD = - 1 THEN 150 

130 D= - )J:E = E + 64: HCOLOR 


= 


“Ra 


Ed) 
= ta hFo 


140 GoTo BO 


10 D=1:E=64 

70 COLOR 3 

80 DRAW"BMO,"+STRS (INT(109*D+E) 
) 

90 FOR T=-127 TO 128 

100 LINE -(127+T, T*T/150*D+E), P 
SET 

110 NEXT 

120 IF D=-1 THEN 150 

130 D=-1:E=E+64:COLOR 2 

140 GoTo 80 


Temos agora duas parábolas, além 
da senóide, Os números necessários pa- 
ra sua elaboração são criados em um la- 
ço FOR..NEXT. O Spectrum, por 


exemplo, usa um laço para as parábo- 
las e outro para a senóide. 


GRÁFICOS IRREGULARES 





A maioria dos gráficos, porém, está 
vinculada a números sem qualquer re- 
lação matemática entre si. Esses núme- 
ros podem representar, por exemplo, os 
valores da precipitação pluviométrica ao 
longo do ano ou a flutuação dos lucros 
e perdas de uma firma: esse tipo de da- 
do varia imprevisivelmente. Se fôssemos 
traçar O gráfico a mão, começaríamos 
pelos eixos cartesianos. Assim, façamos 
com que esta seja a primeira parte do 
programa: 


140 DRAW 0,175 


150 PLOT 0,0 
160 DRAW 255,0 


o 


10 SCREEN 2 

140 LINE (8,0)-(8,19]) 

160 LINE (8,191)-(255,191) 
200 GOTO 200 


Cato 


10 HOME HOR : HCOLOR= 3 
140 HPLOT 0,0 TO 0,159 

160 HPLOT 0,159 TO 279,159 
200 END 


5 PMODE 3,1 

10 PCLS 

15 SCREEN 1,1 

140 LINE (0,0)-(0,191),PSET 

160 LINE (0,191)-(255,191),PSET 
200 GOTO 200 

Nessas linhas, o programa seleciona 
um modo gráfico (menos no Spectrum, 
onde isso não é necessário), colocando 
o eixo Y no lado esquerdo da tela, e o 
eixo X, embaixo. 

Esta é a disposição usual dos eixos, 
mas podemos modificá-la conforme o 
intervalo a que pertencem os números 
em questão. Por exemplo, se traçarmos 
curvas a respeito da variação de tempe- 
raturas ou sobre ganhos e perdas, tere- 
mos (em alguns casos) a ocorrência de 
números negativos; dessa forma, o ei- 
xo X terá que se deslocar para uma po- 
sição mais alta na tela, 

Outra razão para mudar a disposição 
dos eixos é deixar espaço para números 
e legendas, sempre úteis quando se tra- 
ta de gráficos. Faça as próximas modi- 
ficações para ter um exemplo. 


130 PLOT 20,10 
140 DRAW 0,155 


EEE TATE 





























Posso modificar os programas de 
modo a misturar dados positivos e ne- 
| gativos em um só gráfico? 
| À rotina de entrada de dados não 
precisa ser modificada para aceitar nú- 
meros negativos; em contrapartida, as 
rotinas que cuidam dos eixos e dos grá- 
ficos exigem essa alteração. A maior 
dificuldade não é descobrir os valores 
máximo e mínimo, mas sim decidir em 
que ponto da tela colocar o eixo X. 
Se você se dispuser a mudar a po- 
sição desse eixo a cada novo grupo de 
dados, as modificações serão bastan- 
te simples. Para isso, observe atenta- 
mente os dados, escolha fatores de es- 
cala adequados e comece a desenhar 
a partir da origem dos eixos. 





150 PLOT 20,10 
160 DRAW 235,0 


Io 


5 COLOR 6,15,15 

135 COLOR 1 

140 LINE (20,0)-(20,160) 
160 LINE (20,80)-(255,80) 


Lab )Lco] 


10 HOME : HGR 

135  HCOLOR= 3 

140 HPLOT 20,0 TO 20,140 
160 HPLOT 20,70 TO 279,70 
200 END 


5 PMODE 3,1 

10 PCLS 

15 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-(20,160), PSET 
160 LINE (20,80)-(255,80),PSET 
200 GOTO 200 


Ao executar o programa, notaremos 
que há margens à direita e abaixo do 
gráfico. 





Para modificar o tamanho dessas 
margens, altere os valores nas linhas 130 
a 160, com o cuidado de que, no Spec- 
trum, as linhas 130 e 150 sejam 
idênticas. 

Agora, acrescente as próximas linhas 
para continuar e acompanhe o desenvol- 
vimento do processo. 


60 
70 
Bo 
90 
100 
105 


LET n=10 
PLOT 20,n 
FOR x=1 TO 12 
READ y 
DRAW 18,y-n 
LET n=y 
110 NEXT x 
1000 DATA 50,70,60,100,80,120,1 
00,130,70,140,90,110 


70 DRAW "BM20,160” 

BO FOR X=20 TO 20+11*20 STEP 20 
90 READ Y 

100 LINE-(X,161-Y) 

110 NEXT 

160 LINE (20,160)-(255,160) 


1000 DATA 140,123,148,45,100,10 
,20,8,45,8,45,30 








Dao 


15 HCOLOR= 5 
70 HPLOT 20,160 


8B0 FOR X = 20 TO 20 + 11 * 20 
STEP 20 

90 READ Y 

100 HPLOT TO X,141 - Y 

110 NEXT 

160 HPLOT 20,140 TO 279,140 
1000 DATA 130,113,138,35,90,5 


/20,8,45,8,45,30 


70 DRAW"BM20, 160" 

80 FOR X=20 TO 20+11*20 STEP 20 
90 READ 7 

100 LINE -(X,Y), PSET 

110 NEXT 

160 LINE (20,160)-(255,160),PSE 
T 

1000 DATA 140,123,148,45,100,10 
,20,8,45,8,45,30 


O programa desenha doze pontos na 
tela, tomando os valores de X da linha 
80, e os de Y da linha 1000; em segui- 
da, ele une esses valores para formar um 
gráfico serrilhado. 

O primeiro valor da linha DATA é 


clio Pico ii a TR Td A SH 











desenhado na extrema esquerda, em ci- 
ma do eixo dos Y, mas poderíamos tê- 
lo colocado na primeira posição dos X, 
modificando, assim, a localização inicial 
do cursor. 

Em todos os programas, menos no 
do Spectrum, essa localização é especi- 
ficada na linha 70; no Spectrum, isso é 
feito invariavelmente na linha 60. 

Se os valores vão ser usados várias ve- 
zes, convém distribuí-los em uma linha 
DATA. Mas, se quisermos traçar gráfi- 
cos com valores diferentes, é melhor 
usarmos o comando INPUT. 

Acrescente então a próxima linha. Is- 
so funciona em todos os gêneros de mi- 
crocomputadores, à exceção dos que são 
compatíveis com o MSX, que não acei- 
ta o comando INPUT quando está no 
modo gráfico. 


90 INPUT "Valor 
LET vy=v+10 


É ILS) 
90 VTAB 22: 
Pº;Y 


de Y ?",wy: 


INPUT "VALOR DE Y 





90 INPUT "VALOR DE T “;Y 
130 SCREEN 1,1 

Ao ser executado, o programa pede 
o primeiro valor de Y. Em seguida, ele 
realiza a primeira volta do laço da linha 
80. Feito isso, ele torna a pedir um va- 
lor de Y, prosseguindo dessa maneira 
até que os doze valores sejam colocados 
na tela. 

Muitos usuários não gostam da inter- 
rupção que a rotina causa no traçado do 
gráfico. As seguintes modificações resol- 
vem o problema: 


20 DIM y(12) 

40 FOR n=1 TO 12 
50 INPUT "Valor de Y?",y(n): 
LET y(n)=y(n)+10 
60 NEXT n: CLS 

70 LET n=10 

B0 PLOT 20,n 

90 FOR x=1 TO 12 
100 DBAW 18,y(x)-n 
105 LET n=y (x) 

110 NEXT x 








O que é escalamento? 

Escalamento é uma transformação 
matemática dos eixos de um gráfico, 
de modo a fazer com que os seus ex- 
tremos (pontos máximo e mínimo) cal- 
bam nos limites de uma “janela” no ví- 
deo. Esta pode ocupar todo o vídeo, ou 
apenas parte dele; neste último caso, 


diversos gráficos podem ser distribul- | 


dos simultaneamente por diferentes | 


pontos da tela. 
Praticamente todos os gráficos ela- 
borados por programas exigem algum 


tipo de escalamento. À única exceção | 


| são os gráficos cujas coordenadas ho- 


nio dos números inteiros positivos, e 
"cujos valores máximos em cada eixo 
não excedem em número de pixels a re- 
' solução da tela na mesma direção. 
Suponhamos, por exemplo, que é 
necessário colocar em gráfico duas va- 
riáveis, X e Y, onde X varia de um mí- 
nimo de 10 a um máximo de 200, e Y 
varia de um mínimo de O a um máximo 
de 150. Nesse caso, se o computador 


280 pontos na horizontal por 192 pon- 
tos na vertical, não precisaremos esca- 
lar os eixos X e Y. Esse exemplo, po- 
“rém, é uma exceção. 

Existem ainda casos em que basta 
| escalar apenas um dos eixos. Entretan- 
| to, na maioria das vezes, ambos os ei- 
xos precisam ser escalados. 

Do ponto de vista matemático, o 
método de escalamento consiste ape- 
nas em uma regra de três. À mesma 
fórmula pode ser aplicada tanto para O 
eixo horizontal como para o vertical, 
bastando trocar as variáveis x por y. À 
fórmula leva em conta os valores mi- 
nimo e máximo do eixo, o número de 
pontos gráficos que cabem nele, e se 
os valores numéricos identificadores 


arredondados ou não. 
A fórmula de escalamento é: 


= — , pix 
xmax — xmin 


Ê 


x" = valor escalado 

x = valor original 

xmin = valor mínimo da escala 

xmax = valor máximo da escala 

pix = número máximo de pixels do 
eixo. 





rizontais e verticais se situam no domf- | 


a ser usado for da linha Apple Il, que | 
tem uma resolução gráfica máxima de | 





das marcas dos eixos (rótulos) serão | 


ny 


5 COLOR 1,15,15 

10 SCREEN O 

20 DIM Y(11) 

40 FOR N=0 TO 11 

S0 INPUT "Qual o valor de Y “i;Y 
(N) 

60 NEXT 

65 COLOR 6:8CREEN 2 

70 DRAW "BM20,"+STRS (INT(161-YT( 
0))) 

BO N=0 

90 FOR X=-20 TO 11*20+20 STEP 20 
100 LINE -(X,161-Y(N)) 

110 N=N+1 

120 NEXT 















65 HOME : HGR : HCOLOR= 5 
70 HPLOT 20,141 - Y(0) 

BO N = 0 

90 FOR X = 20 TO 11 * 20 + 20 


STEP 20 
100 HPLOT TO X,141 - Y(N) 
110 N= N+1 

120 NEXT 














EE 


20 Diy Y(11) 

40 FOR N=0 TO 11 

50 INEOT "VALOR DE Y ";Y(N) 
60 NEX 
70 DRAW “EB 
0))) 


20," +STRS (INT (161-Y( 


















BO N=Q 
90 FOR X=Z0 To 11*20+20 STEP 20 
100 LINE-(X9W(N)),PSET 
110 N=N+1 
120 NEXT 
O programa realiza primeiro a roti- 


para depois fa- 
são colocados 
aveis de Y (1) 
MO) a Y (11) 
O se quei- 
basta 


na de entrada de dac 
zer o gráfico. Os dado 
na matriz Y ( ), como v 
a Y (12) no Spectrum, e 
nos demais computadores. ( 
ra utilizar mais de doze númeér 
redimensionar a matriz. Os valores de 
X são obtidos na linha 90, eo d 20 
é feito pela linha 100. A linha 110 cor 
ta os valores de Y. 
















COMO USAR ESCALAS | 





Os valores para os gráficos foram es- 
colhidos até agora de modo a caber den- 
tro dos eixos e da tela. Geralmente, po- 
rém, os números que queremos colocar 
em um gráfico são maiores ou menores 













que o ideal. Precisamos, assim, de uma f 
escala que os coloque dentro do inter- 
valo válido. A maneira mais simples de 
fazer isso é olhar todos os valores e de- 
cidir então qual é o fator que deveremos 
usar para multiplicar todos os números, 
de forma a mostrá-los no gráfico, | 
A seguir, apresentamos o programa 
completo, isto é, com todas as modifi- 
cações necessárias. 


| 

= vs 

20 DIM v(12) | 

30 LET xs=2: LET ys=1/50 " | 
40 FOR n=l TO 12 Ê 
50 READ y(n) ha 
60 NEXT n: CLS “ 
70 LET n=B ç 
B0 PLOT 40,n ê 


90 FOR x=1 TO 12 

DRAW B*xsa, (y(x)-n)*ys 

LET n=vy(x) 

NEXT x 

PLOT 40,8 

DRAW 0,167 

PLOT 40,8 

DRAW 210,0 
4000,2000,6000,3000,8 
5000,2000,6000,1500,30 
00,500 


a 


5 COLOR 6,15,15 
10 SCREEN 2 

20 DIM Y(12) 

30 X8=20:Y8=1/20 
40 FOR N=1 TO 12 
50 READ Y(N) 

60 NEXT 

80 DRAW "BM20,"+STRS(INT(161-YS 
*Y(1))) 

90 FOR X=1 TO 12 





100 LINE-(X*X8,161-YS*Y(X)) 

110 NEXT 

135 COLOR 1 

140 LINE (20,0)-(20,160) 

160 LINE (20,160)-(255,160) & 
200 GoToO 200 


1000 DATA 1600,1000,2500,3000,3 
200,2000,2500,1000,3000,750,150 
0,250 : 


LO HOME HGR : 
20 DIM Y(12) 





HCOLOR= 5 | 


30 X8 = 20:78 = 1 / 20 


FOR N = 1 TO 12 
READ Y(N) 

GU EXT 

BO | 
90 FO 


[7] 


20,241 - T(l) * T8 : 


1 TO 12 
100 HPLC O X * X58,141 - YI(X 
7 TB E 
110 NEXT 


135 HCOLOR= 3 
140 HPLOT 20,0 TO 20,1% 





o 


fe 





160 HPLOT 20,140 TO 279,140 
200 END 

1000 DATA 1600,1000,2500,300, 
450,2000,2500,1000,2700,750,150 
0,250 





5 PMODE 3,1 

10 PCLS 

20 DIM Y(12) 

30 XS=20:YS=1/20 

40 FOR N=1 TO 12 

50 READ Y(N) 

60 NEXT 

80 DRAW"BM20,"+STRS (INT(161-YS5* 
Y(1))) 

90 FOR X=1 TO 12 

100 LINE -(X*XS,Y(X)*YS),PSET 
110 NEXT 

130 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-(20,160), PSET 
160 LINE (20,160)-(255,160),PSE 
T 

200 GoToO 200 

1000 DATA 1600,1000,2500,3000,3 
200,2000,2500,1000,3000,750,150 
0.250 

O programa faz o gráfico a partir dos 
valores da linha DATA 1000. Assim, 
poupa-se o tempo de digitação dos nú- 
meros enquanto o programa está sendo 
testado. Como vimos anteriormente, é 
possível mudar facilmente a via de en- 
trada dos dados. 

Os fatores de escala são estabelecidos 
pela linha 30. A linha 80 move o cursor 
para a posição inicial e os pontos são 
traçados pelo laço das linhas 90 a 110. 
As linhas 130 a 160 desenham os eixos 
cartesianos. 

Se o gráfico não utilizar todo o es- 
paço disponível na tela, podemos mu- 
dar o valor dos fatores de escala da li- 
nha 30. Para usar a escala nos eixos, di- 
as próximas linhas. 


- 
Le 





140 DRA 
160 DRAW 


a 


140 LINE 
Y5) 


Cito 


140 HPLOT 20,140 TO 20,: 
700 * 75 - 


140 LIN 


2000*vys 








(20,160 20,161-3200* 





50) -(20,161-3200* 


Ao rodarmos o programa, o eixo Y 
irá somente até a altura do maior valor. 
O efeito será mais nítido se substituir- 
mos os valores da linha 30. Agora po- 
demos utilizar qualquer valor, desde que 
modifiquemos os fatores de escala na li- 
nha 30. 


Para numerar os eixos, digite as pró- 
ximas linhas: 


210 FOR x=0 TO 12 STEP 2 

220 PRINT AT 21,x*2+4;x 

230 NEXT x 

300 FOR v=0 TO 8000 STEP 2000 
310 PRINT AT (8000-vy)/400,0;y 
320 NEXT y 


As linhas 210 a 230 tomam os valo- 
res de O a 12, que são colocados logo 
abaixo do eixo X. Os números ao lon- 
go do eixo Y são impressos pelas linhas 
300 a 320. 


200 OPEN "GRP:”" FOR OUTPUT AS + 
1 
210 FOR Y=500 TO 3000 STEP 500 


220 PRESET (0,151-Y*YS): PRINT41 
 Y/500 


230 LINE (18,161-Y*YS)-(20,161 


Y*78) 
240 NEXT 
250 PRESET (25,0):PRINT 41, 
500)" | 
260 FOR X=20 TO 255 STEP 
270 PRESET(X-8,170):PRIN 

0 | 
280 LINE (X,162)-(X,16 
290 NEXT 

300 GOTO 300 


A linha 200 abre umParquivo para 
que possamos escrevennãa tela de alta re- 
solução. O laço das hifhas 210 a 240 es- 
creve os valores abalo do eixo X e o la- 
ço das linhas 2608290, no eixo Y. No- 
te como PRESEP usado para escolher 
a posição de impressão. A linha 250 in- 
forma a esçalã das ordenadas. 


PIId 


Z0( DR Y = 500 TO 2500 STEP 5 


K/2 



































O” HPLOT 18,7 * YS TO 20,Y * 
220 
230 
20 
240 HPLOT X,142 TO X,140 
250 NEXT 

60 END 


NEXT 
FOR X = 20 TO 20 * 12 STEP 





le não tem uma 


Este programs 
nhos nos eixos. O Apr 





realizar esse trabalho podem ser revisa- 


































COMO COMPARAR DADOS 

À capacidade de desenhar um grá- 
fico em escala é particularmente útil 
quando se deseja mostrar mais de um 
conjunto de dados ao mesmo tempo, 
Por exemplo, as duas metades do ano. 
Se quisermos compará-las, devemos 
começar desenhando um gráfico para 
O primeiro semestre no alto da tela e 
um para o segundo, embaixo. Podemos 
colocar os doze valores dentro de uma 
só matriz. Depois, lemos os seis primei- 
ros e acionamos a sub-rotina que faz 
o gráfico. Lemos a seguir os outros 
seis, e repetimos o processo. Às mu- 
danças necessárias dizem respeito à 
posição inicial de cada gráfico e à po- 
sição dos eixos, de forma a desenhar 
dois, e não apenas um eixo. Uma alter- 
nativa para essa solução é traçar um 
único eixo X no meio da tela, de onde 
partem, em direções diferentes, os dois 
gráficos. 





Maneira de escrever com facilidade na 
ela de alta resolução. 

No TK-2000 podemos escrever os nú- 
meros na tela gráfica; neste caso, po- 
rém, a tarefa é deixada ao leitor. 

O laço das linhas 200 a 220 cuida do 
eixo Y, enquanto que o das linhas 230 
a 250 cuida do eixo X. 


Escrever na tela gráfica do TRS- 
Color é mais complicado, pois não po- 
demos usar o PRINT. Os caracteres de- 
vem ser desenhados com DRAW. Mui- 
to longa para ser listada aqui, a rotina 
que faz isso encontra-se na página 236 
(Recursos Gráficos Sofisticados), e po- 
de ser facilmente incorporada ao pro- 
grama apenas com alguns ajustes nos 
números das linhas. 


[o ARTE FINAL 


Os últimos retoques no desenho fica- 
rão por sua conta. Eles não são essen- 
ciais, mas O gráfico ficará mais atraen- 
te se for colorido e dispuser de um ro- 
dapé. Os comandos necessários para 







dos nos artigos Como Desenhar em BA- 
SIC (página 113) e Ordem e Limpeza no pm 
Vídeo (página 146). | 








CUIDADOS COM 


E DISCOS 





Você não precisa ser um gênio de 
organização para lidar com 
computadores. Mas vale a pena fazer 
um mínimo de esforço para 

manter em ordem suas fitas e disquetes. 


Os sistemas de armazenamento auxi- 
liar baseados em fitas ou discos ofere- 
cem ao usuário de computadores do- 
mésticos a possibilidade de contar com 
vastas quantidades de informação e 
também de milhares de programas de 
uma forma muito compacta. 

Entretanto, a eficiência dos sistemas 
de armazenamento magnético tem al- 
guns pontos fracos em potencial. Como 
as informações se concentram em pe- 
quenos disquetes ou em fitas cassetes, 
qualquer dano sofrido por estes pode ter 
efeitos desastrosos. Ao mesmo tempo, 
os meios magnéticos são bastante vul- 
neráveis a agressões ambientais. 


PROTEÇÃO CONTRA DANOS 





Diante disso, é de fundamental im- 
portância que a informação permaneça 
inalterada no disco ou na fita em que foi 
gravada. Assim, você poderá tê-la de 
volta sempre que precisar. 

Existem dois tipos de danos que po- 
dem afetar os meios magnéticos: o tipo 
mecânico e o magnético, 

Os danos mecânicos podem ser cau- 
sados por fatores externos, como calor, 
deformação (provocada pela pressão de 
um corpo mais pesado, por exemplo, 
poeira, umidade etc.). Esses fatores ten- 
dem a deteriorar a base magnética ou a 
estrutura dos disquetes e das fitas. Pa- 
ra evitar sua ação, é necessário proteger 
os meios magnéticos sempre que eles 
não estiverem sendo utilizados. Assim, 
mantenha os disquetes dentro de sua ca- 
pa de cartolina e guarde-os em uma cai- 
xa ou gaveta apropriada. Conserve as fi- 
tas cassetes em suas caixas de plástico, 
e estas, por sua vez, em uma estante pró- 
pria (o que facilitará também o traba- 
lho de localizá-las). Armazene discos e 
fitas longe da poeira, do calor e da 
umidade. 





Nunca toque a superfície exposta de 
um disco ou fita. Rebobine as fitas sem- 
pre que puder, colocando sua parte 
transparente (leader) na abertura, onde 
a fita está mais sujeita à ação dos agen- 
tes externos. Além disso, a fita ficará 
pronta para ser novamente utilizada. 
Não deixe fitas por muito tempo den- 
tro do gravador com a tecla PLAY acio- 
nada; se o fizer, elas sofrerão deforma- 
ções provocadas pelo cabeçote do gra- 
vador. Da mesma forma, nunca deixe 
disquetes dentro da unidade acionado- 
ra (driver). 

Outro perigo considerável para seus 
discos e fitas são os campos magnéticos 
encontrados em aparelhos eletrodomeés- 
ticos como alto-falantes e alguns tipos 
de motor. Equipados com ímãs, esses 
aparelhos geram campos magnéticos 
fortes mesmo quando não estão funcio- 
nando. Portanto, mantenha discos e fi- 
tas longe de televisores, motores de au- 
tomóveis, geladeiras, aparelhos de ar 
condicionado, ventiladores, e até mes- 
mo de telefones. 


SEGURO CONTRA PERDAS 





Por outro lado, os acidentes são ine- 
vitáveis; por isso, vale a pena tomar pre- 
cauções extras e fazer duplicatas dos da- 
dos e programas mais importantes. Es- 
sas cópias cautelares, ou de segurança, 
são conhecidas em computês pelo nome 
de back-up. 

Em geral, é uma boa idéia gravar tu- 
do duas vezes (o que pode ser feito na 
mesma fita ou disco). Três vezes é me- 
lhor ainda. Desse modo, pelo menos 
uma versão permanecerá intacta. Se O 
arquivo for importante, faça cópias em 
novos discos ou fitas, e guarde-as em 
outro lugar; mas procure não utilizá-las: 
elas poderão ser necessárias para recu- 
perar o arquivo original em caso de 
perda. 

Proteja suas fitas contra a desgra- 
vação, removendo a orelha de plásti- 
co da borda da fita. Para proteger os 
disquetes, coloque uma fita adesiva opa- 
ca ou reflexiva sobre o furo retangu- 
lar que existe em uma ou ambas as bor- 
das (isso, nos disquetes de 5 1/4”. No 
caso dos disquetes de 8”, a proteção 


PROTEJA A INFORMAÇÃO 
COMO FAZER CÓPIAS 
CAUTELARES 


a 
te 
E INDEXAÇÃO DO MATERIAL 
Eu 


FAÇA ENVIOS PELO CORREIO 


se faz removendo o adesivo). 

Com o passar do tempo, discos e fi- 
tas se acumularão às centenas em seu ar- 
quivo, tornando cada vez mais difícil a 
localização dos dados e programas. As- 
sim, é aconselhável rotular discos e fi- 
tas desde o começo (você pode, por 
exemplo, numerá-los para referências 
rápidas; alguns micros permitem iden- 
tificar disquetes com nomes). Paralela- 
mente, procure armazenar apenas arqui- 
vos relacionados em uma fita ou disco. 
As fitas devem, de preferência, ser cur- 
tas e conter de um a três arquivos ou 
programas, apenas. 

Dê a cada arquivo um nome bem cla- 
ro, dentro das limitações impostas pelo 
sistema operacional usado pelo seu mi- 
cro. Se você tiver várias versões de um 
programa, utilize um sistema de nume- 
ração qualquer para identificá-las. Co- 
loque o nome e o número de cada ver- 
são dentro dos programas utilizando de- 
clarações REM. 

Para identificar discos e fitas, use eti- 
quetas gomadas adequadas. No caso de 
fitas, não se esqueça de rotular também 
as caixas. Não escreva com lápis ou ca- 
neta esferográfica sobre a etiqueta de 
um disquete. Mantenha um caderno ou 
fichário com todos os nomes de arqui- 
vos, programas, comentários e suas res- 
pectivas localizações. 


PELO. CORREIO 





Fitas e discos constituem um meio 
muito conveniente de enviar programas 
e outros tipos de informação pelo cor- 
reio. As fitas cassetes são razoavelmen- 
te fortes e “viajam” bem. Envie-as sem 
a caixa para reduzir o peso e o custo 
(não esqueça de travar o movimento das 
bobinas). Envelopes almofadados ou a 
caixinha lacrada de fonogramas são 
ideais para esses envios. 

No caso de discos, convém embalá- 
los entre dois pedaços de papelão rígi- 
do para evitar deformações. Se você pre- 
ferir, pode também colocá-los em cai- 
xas metálicas rasas ou de plástico resis- 
tente. Em todos os casos, escreva do la- 
do de fora do pacote: “MEIO MAG- 
NÉTICO. FRÁGIL”. Para maior segu- 


rança, envie registrado. 
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Todos os que já tentaram sabem como é 
árduo o trabalho de criar novos 
caracteres usando papel e lápis. Mas 
nem tudo está perdido: eis aqui 

um programa que facilita esse trabalho. 


Conhecidos pela sigla UDG, os blo- 
cos gráficos são um dos recursos mais 
úteis ao programador gráfico. O traba- 
lho de planejá-los e desenhá-los inicial- 
mente no papel, entretanto, exige mui- 
to tempo e dedicação. Além disso, o cál- 
culo dos números correspondentes a se- 
rem utilizados em linhas DATA é bas- 
tante complicado. Por outro lado,se al- 
gum erro for cometido, no decorrer do 
processo, sua correção também exigirá 
um esforço especial. 

O programa apresentado neste arti- 
go facilita as coisas. Ele substitui o pa- 
pel milimetrado pela tela do micro, on- 
de poderemos desenhar o padrão do no- 
vo bloco gráfico. O cálculo dos valores 
a serem colocados em linhas DATA 
também é feito automaticamente. 

Outra grande vantagem do programa 
é que ele nos deixa ver, em tamanho na- 
tural, o bloco que estamos criando e nos 
poupa o trabalho de transferir os dados 
para outro programa. Várias teclas de 
controle nos permitirão não só modifi- 
car o padrão do desenho, como também 
produzir o padrão inverso, ou virá-lo da 
esquerda para a direita. Tudo isso com 
um simples toque. 

Quando estivermos satisfeitos com o 
padrão criado, poderemos preservá-lo, 
gravando todo um conjunto de blocos. 
Uma vez gravado, esse conjunto pode- 
rá ser carregado para utilização em ou- 
tros programas, ou reeditado pelo pre- 
sente gerador de blocos gráficos. 

O programa virá em duas partes. A 
primeira, neste artigo, cuida do aspec- 
to básico do gerador. Faz um quadricu- 
lado na tela, permitindo a movimenta- 
ção de um cursor para a criação do pa- 
drão desejado. Na parte seguinte, serão 
apresentadas rotinas que possibilitam 
modificações mais sutis no caractere. 

Grave a primeira parte em fita ou dis- 
co para completá-la posteriormente. De- 
vido à falta de alta resolução gráfica no 





ZX-81 e no TRS-80, não mostraremos 
versões para esses micros. 


Colocado em funcionamento, o pro- 
grama mostra na tela um quadriculado 
com 8 x 8 quadradinhos. Este é o “pa- 
pel milimetrado”” no qual iremos criar 
nosso novo bloco gráfico. Agora pode- 
mos escolher quais quadradinhos “'acen- 
der” e quais “apagar” para criar um pa- 
drão. Para tanto dispomos de um qua- 
dradinho branco, que funciona como 
cursor. Desprovido de cor especial, es- 
te último é, na verdade, a versão mais 
brilhante — com atributo BRIGHT — 
do quadradinho que está abaixo dele. 
Assim, podemos ver, ao mesmo tempo, 
onde o cursor está e se esse quadradi- 


CRIE NOVOS CARACTERES 
COMO COLOCAR PADRÕES EM 
UM BANCO DE MEMÓRIA 
| TECLAS DE CONTROLE 
CORES EM ALTA RESOLUÇÃO 


nho foi aceso ou apagado. O programa 
foi escrito de modo que as setas movi- 
mentem o cursor e o número O, e acen- 
dam ou apaguem os quadradinhos. 

Quem preferir outras teclas para mo- 
vimentar o cursor deve mudar os carac- 
teres dentro do IF I$= ... nas linhas 
6520 a 6555. 

O mesmo método serve para adaptar 
o programa ao uso de joysticks. Quem 
dispuser de um desses periféricos deve 
consultar o artigo da página 348. 

Aqueles que não quiserem recorrer às 
setas para mover o cursor terão de es- 
colher as novas teclas com bastante cui- 
dado, pois nenhuma das teclas de con- 
trole pode ser usada. Essa parte inicial 
do programa utiliza apenas três teclas de 
controle (explicaremos melhor adiante), 
mas a parte seguinte usa mais. De qual- 
quer modo, as teclas C, |, M, P, R,5 







































te lado ou O joystick, po- 
; pentar O cursor dentro do 
ulado. Quando pressionarmos a 
, Mm teclado (ou o botão do joys- 
forem feitas as modificações 
| veremos a cor do cursor 
| indicando que o quadradinho 
ç está foi “aceso”. Se alterarmos 
ão ado cursor, provocaremos uma 
x 4 na cor do quadradinho. Des- 
eira, podemos definir o padrão 
vos blocos gráficos. 
p rograma oferece várias opções, 
odermr | ser feitas a qualquer momen- 
dição. Uma delas é a de guardar 


a pressiona S — uma das teclas 
per que mencionamos antes. 
ama procurará saber então 
lugar do banco de memória de- 
rdar o bloco. O banco é repre- 
f S letras de A a U, mostra- 
cima do quadriculado. De- 
Ó: S teclado uma letra entre 
Tê uma p ausa, enquanto os 
rrespondentes ao padrão do 
ado s no banco de memó- 
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bloco desejamos. Em resposta, devemos 
pressionar a tecla correspondente; o blo- 
co desejado será então colocado no qua- 
driculado. 


GRAVE BLOCOS NA FITA 





Precisamos agora gravar o conjunto 
de blocos criados, de modo a utilizá-los 
em outros programas. Ao mesmo tem- 
po, é aconselhável carregar um conjun- 
to de blocos para edição. 

Para começar, pressionamos a tecla 
T. O programa perguntará então se que- 
remos gravar ou carregar um conjunto. 
No primeiro caso, todo o conteúdo do 
banco de memória será cuidadosamen- 
te gravado; portanto, não devemos es- 
quecer de guardar ali o último caracte- 
re que estava sendo editado, 

A próxima parte do artigo explicará 
como usar os recursos do gerador para 
criar e utilizar muitos é muitos blocos 
gráficos, incluindo como usar o conjun- 
to criado em outros programas. Novos 
recursos interessantes serão também adi- 
cionados ao programa. 

& CLEAR USA "A"-l16 
6 POKE 23675,PEEK 23675-166 


8 BORDER 4: PAPER 7: INK O: 
CLS 
LO FOR N=USA "A" TO USR "BT+7 


+ READ A: POKE N,A: NEXT N 


15 POKE 23675, PEEK 23675+16 


20 POKE 23658,8 

30 LET X=1l1: LET Y=B: 
X: LET NiST 
100 LET AS="": 


LET NX= 


FOR N=144 TO 


164: LET AS=AS+CHRS N: NEXT N 
110 LET B5S="": FOR N=65 TO 85: 
LET BS=BS+CHAS N: NEXT N 
1000 FOR N=B7 TO 151 STEP 8: PL 
OT N,48: DRAW 0,64: NEXT N 
1010 FOR N=48 TO 112 STEP B: PL 
OT B87,N: DRAW 64,0: NEXT N 
2000 PRINT AT 3,5;A5 
2010 PRINT  INVERSE 1;AT 2,5;:BS 
2400 GOSUB 6500 
2500 IF INKEY$="P” THEN GOTO 5 
000 
2510 IF INKEY$="S" THEN GOTO 5 
100 
2520 IF INKEYS="T" THEN GOTO 5 
200 
3900 GOTO 2000 
5000 INPUT "QUE CARACTER (A-U)? 
"LINE CS 
5010 IF CS<CHAS 65 OR CS>CHRS 8 
5 THEN GOTO 5000 
5020 LET D=CODE CS+79: LET C3=€ 
HRS D: GOSUB 6000: GOTO 2000 
5100 INPUT "GUARDAR EM QUE LETR 
A (A-U)?2”, LINE CS 
5110 IF CS<CHRS 65 OR CS>2CHRS B 
5 THEN GOTO 5100 
5120 PRINT AT 18,10;" GUARDANDO” 


5130 FOR N=USR CS TO USR CS+/ 
5140 LET B=D: LET BIT=12B: FOR 
M=0 TO 7 
5150 IF PEEK 
32+M+11)<21L THEN 
5160 LET BIT=BIT/2: 


(18432+ (N-USR CS)* 
LET R=R+BIT 
NEXT M: POK 





E N,R 

5170 NEXT N: 
TAB 31;" F: 
5200 INPUT "C(ARREGAR) OU GIRAV 

AR)?”", LINE CS: IF CS<>"C” AND 

CS<>"G”" THEN GOTO 1000 

5220 IF CS="C” THEN GOTO 5250 
4230 INPUT "INTRODUZA O NOME DO 
ARQUIVO”, LINE NS: IF N$="” OR 
LEN N$>10 THEN GOTO 5230 

5240 SAVE NSCODE USR "A”,168B: G 

OTO 100 

5250 INPUT "INTRODUZA O NOME DO 
ARQUIVO”, LINE N$: IF LEN N321 

O THEN GOTO 5250 
5260 PRINT AT 19,0;: 


PRINT AT 18,0," "; 
coTo 1000 


LOAD NSCOD 


E USR “A”: PRINT AT 20,0;" "FTA 
B 3l;” ": GOTO 100 

6000 LET B=USR "A"+B* (CODE C5S-1 
44) 

6010 POKE 23675,PEEK 23675-166 
6020 FOR N=0 TO 7 

6030 LET V=PEEK (B+N) 

6040 LET BIT=128: FOR M=0 TO 7 


6050“ IF V>=BIT THEN PRINT AT 8 
+N, 11+M;CHERS 144: LET V=V-BIT: 
GoTo 6060 

6055 PRINT AT 8+N,11+M;CHBS 145 
6060 LET BIT=BIT/2: NEXT M 

6070 NEXT N: POKE 23675,PEEK 23 
675+16: RETURN 

6500 POKE 22528+32*Y+X,120: 
SE O 

6510 LET IS=INKEYS 

6520 IF 1$="5" AND X>1l1l THEN L 
ET NX=K-) 

6530 IF IS="B" 
ET NX=X+1 
6540 IF 15=" 
ET NY=Y+1 
6550 IF 15="7" 
T Ny=Y-1 

6552 IF 15="0" THEN GOSUB 7000 
6555 IF 18="" THEN GOTO 6580 
6560 POKE 22528+7*32+X,56 

6570 LET X=NX: LET Y=NY 

6580 POKE 22528+Y*32+X,120 

6590 RETURN 

7000 POKE 23675, PEEK 23675-16 
7010 IF PEEK (18432+(Y-B)*32+X) 
=] THEN PRINT BRIGHT L;AT Y,X 
“CHARS 144; GOTO 7030 

7020 PRINT BRIGHT 1;AT Y,X;CHR 
S 145 

7030 CORE, Ruca? 23675+16: 

RR PUEN 


PAU 


AND K<18 THEN L 
6” AND Y<15 THEN L 


AND Y>8 THEN LE 


dos DE Ui aid + 
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Quando o programa é executado, um 
quadriculado de 8 x 8 pontos surge na 
tela, Este será o “papel quadriculado ' 
onde planejaremos a forma de nosso 
bloco gráfico. 

Temos também um cursor em forma 
de cruz. Conforme as cores escolhidas, 
esse cursor será pouco ou muito visivel, 
podendo até mesmo desaparecer quan- 
do sua cor for “transparente”” (código 
de cor zero). O programa foi escrito de 
maneira que as setas movimentem o cur- 
sor ea barra de espaço acenda ou apa- 
gue o ponto. 

Se você quiser utilizar um joystick pa- 
ra mover o cursor (os pontos são ace- 
sos pelo botão de disparo), deve mudar 
o valor das instruções STICK e STRIG, 
nas linhas 70 e 20, respectivamente. 

Assim, O cursor pode ser movimen- 
tado dentro do quadriculado. Quando 
pressionarmos a tecla de espaço, o pon- 
to que está sob o cursor será aceso, as- 
sumindo a cor de frente; se pressionar- 
mos a tecla novamente, ele será apaga- 
do, adotando a cor de fundo. 

No início do programa, a cor de fun- 
do é branca e à cor de frente, preta. Se 
quisermos modificar esta última, deve- 
mos pressionar a tecla €, O computa- 
dor nos perguntará a seguir O código da 
nova cor de frente, ou seja, um numero 
de O a 15 em decimal. A escolha dessa 
cor pode ser feita com apenas um toque; 
para isso, devemos digitar seu número 
em hexadecimal (de O a F). Já a cor de 
fundo pode ser modificada pressionan- 
do-se a tecla F. 

É importante ter em mente as regras 
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segunda cor de fundo. Em nosso pro- 
grama, esses cuidados ficam por sua 
conta; o computador pode mostrar até 
oito cores numa mesma linha de bloco 
no quadriculado. No momento em que 
esse bloco for colocado na tela, em ta- 
manho natural, apenas as duas últimas 
cores — uma de frente e outra de fun- 
do — aparecerão, 

Essa limitação no número de cores 
pode causar inconvenientes. Se uma hi- 
nha do bloco tiver a cor de frente igual 
à de fundo, o traçado do quadriculado 
naquela linha desaparecerá. Neste caso, 
de pouco valeria modificar o programa, 
fazendo-o redesenhar o quadriculado; 
isso, na verdade, criaria novos proble- 
mas. Na realidade, o traçado está ali: só 
não podemos vê-los porque ele tem a . = 
mesma cor do fundo. “ida 

O programa tem ainda 8) ras fun- gr, 
ções, disponíveis a qualquer momento | 
duigiia é itição ds aro A 
las “guarda” o bloco em um ba: 
memória, que fica protegido na pi 


Quer 1 


ta da memória. Para fazer Ra bas gia 


apertar a tecla G. E 
O programa solicita então um núme- 


co ocupará no banco de memória. Esse | 
número pode valer de O a 255. Uma vez Ra 
informado da posição desejada, o com- | 
putador mostra o bloco, em tamanho 
natural, no alto da tela. Ali fica repre- 
sentado todo o conteúdo do banco de 
memória. Um mesmo bloco pode ser 
guardado em várias posições diferentes, 
Outra opção oferecida é a de “recu- 
perar” um bloco que esteja no banco, 
trazendo-o de volta ao quadriculado, | 
onde ele pode sofrer modificações. Isto | 
é feito pela tecla R, Note que apenard Qi) by; 
desenho do bloco é trazido para O qua | 
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COMO GRAVAR OS BLOCOS EM FITA 


Após tanto trabalho, você certamente 
vai querer gravar os blocos criados pa- 
ra um eventual uso futuro. O programa 
dispõe, para tanto, de uma função de 
gravação em fita, acompanhada de ou- 
tra, que permite a leitura de um banco 
previamente gravado. 

Para gravar ou ler uma fita, é preci- 
so pressionar a tecla T. O computador 
perguntará então se você deseja um SA- 
VE ou um LOAD. Se você escolher gra- 
var, O banco de memória será transferi- 
do em bloco para a fita. Portanto, não 
se esqueça de guardar o último bloco 
que estava sendo editado. 

O banco de memória utilizado nada 
mais é do que uma região da memória 
do micro, protegida para esse fim, Ela 
contém, no entanto, alguns valores inú- 
teis para nós (lixo, no jargão do progra- 
mador). Esse “lixo” não é visível duran- 
te a execução do programa, mas pode 
ser transferido para a fita, quando não 
usamos todas as 256 posições. Ele torna- 
se visível quando carregamos um ban- 
co da fita. 

Em geral, as posições múltiplas de 16 
apresentam pontos aleatórios. Esse pro- 
blema, porém, só afeta posições não 
ocupadas, nunca interferindo nos blo- 
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cos. Da mesma forma, se interromper- 
mos o programa por qualquer motivo, 
ao voltarmos a executá-lo, não veremos 
o banco na tela; mas todos os blocos 
criados estarão lá, podendo ser recupe- 
rados, especialmente quando soubermos 
suas posições. 

Quando quisermos ler um conjunto 
de blocos da fita, o programa oferecerá 
a opção de ver seu conteúdo por meio 
da tecla V. Se soubermos exatamente 
onde estão os blocos, podemos poupar 
tempo e trabalho. Nesse caso, a tecla 
< ENTER > nos trará de volta à edição 
(não veremos nada na tela, mas todo o 
conteúdo do banco estará lá, podendo 
ser recuperado). 

A próxima parte deste artigo explica- 
rá como utilizar estes e outros recursos 
do programa para criar blocos gráficos, 
bem como as formas de utilizá-los em 
outros programas, 


10 CLEAR 200,4HD000:SCREENI:FOR 
I=28*B8 TO 28*8+7: A=VPEEK (BASE ( 
!)+I) :AS=AS+CHRBS (A) :NEXT: COLOR 
1,15,15:€C=1:F=15:C1=C:C2=F:SCRE 
EN 2,0 

20 DIM B(8,8):SPRITES(0)=AS:O0N 

STRIG GOSUB 500,500:S85TRIG(0) ON 
30 GOSUB 1430 

50 X=96:Y=64:GO0TO 200 

60 KS=INKEYS:IF K5="" THEN 60 
70 A=STICK(0) 


T(B,170):PRINT$A1,"o número do b 
loco :”":CLOSE 1:GOSUB 9200 

1010 XS=INKEYS:IF XS="" THEN 10 
10 

1015 IF XS=CHAS (13) THEN GOSUB 
9100:GOTO 1050 

1020 IF XS=CHRS (29) AND N>20 THE 
N N=N-1:GOSUB 9200:GOTO 1010 
1025 IF XS=CHRS (28) AND N<255 T 
HEN N=N+1:GOSUB 9200:GOTO 1010 
1030 IF X5=CHRS(31) AND N>9 THE 
N N=N-10:GOSUB 9200:GOTO 1010 
1040 IF XS=CHRS (30) AND N<245 T 
HEN N=N+10:GOSUB 9200:GOTO 1010 
1045 GOTO 1010 

1050 FOR I=0 TO 7/:P(T)-PEEKRIAHD 
100+N*8B+T) 

1052 FOR 1T=0 TO 7:P(1T)=PEEK(RHD 
LO0+N*B+T) 

1055 C(I)=PEEK(AHE1L00+N*B+1I) 
1060 FOR J=7 TO O STEP -) 

1070 B(I,J)=P(I)-INT(P(T)/2)*2: 
P(T)I=INT(P(I)/2) 

1080 TF B(T,J)=0 THEN LINE (96+ 
B*J+],64+8*71+1])- (96+8*]+6, 64+8* 
[+7) C(T)IAND1I5,BF ELSE LINE (9 
6+8*]J+],64+8*1+1)-(96+B*]J+6, 64+ 
B*I1+7). (C(I)-(C(IJAND15))/16,BF 
1090 NEXT J,I:RETURN 

1430 FOR 17-96 TO 160 STEP B:LIN 
E (1,64)-(1I,128),1:NEXT 

1440 FOR 1=64 TO 128 STEP 8:LTN 
E (96,1)-(160,1),1]:NEXT 

1450 RETURN 

1800 N=0:GOSUB 9000:PRINT4I,"Us 
e as gefas para escolher”: PRESE 


BO ON A GOTO 90,130,100,130,110 
/130,120,130 
B5 GOTO 130 
90 IF Y>64 THEN Y=Y-B:GOTO 200 
95 GOTO 200 


100 IF X<152 THEN X=X+B:GOTO 20 
O 

105 GOTO 200 , 
110 IF Y<120 THEN Y=Y+8:GOTO 20 
Ú 

115 GOTO 200 

120 IF X>96 THEN X=X-B:GOTO 200 
125 GOTO 200 

130 IF K5="G” THEN GOSUB 1500:G 
oOTo 200 

140 IF KS="Rº THEN GOSUB 1000:6G 

oTo 200 

150 IF K$="T” THEN GOSUB 2000:G 

OTO 200 

L60 IF K$="C” THEN GOSUB 2500:G 

oTO 200 

170 IF K5="F” THEN GOSUB 2600:G 

OTO 200 

200 IF C+1>15 OR C+1=F THEN S=€ 
ELSE S=C+1 


210 PUT SPRITE D,(X,Y7),5S 
220 GOTO 60 

500 SWAP C1,C2:LINE 
X+6,Y+7),C2,BF 

510 IF C2=F THEN B((7-64)/8, (X- 
96)/8)=0 ELSE B((Y-64)/8, (X-96) 
!B)=1 

520 C((Y-64)/B)=C*L6+F 

530 RETURN 

1000 N=0:GOSUB 9000:PRINT41,"Us 
e as setas para escolher”: PRESE 


DSO dd Dido 





T(8,170): PRINT$41,"o mimero do b 
loco :":-CLOSE 1:GOSUB 9200 

1510 XS=INKEYS: IF XS$="" THEN 15 
10 

1515 IF XS=CHRS (13) THEN GOSUB 
9100:GOTO 1550 

1520 IF X5=CHR5S(29) AND N>0 THE 
N N=N-1:GOSUR 9200:GOTO 1510 
1525 IF XS=CHRS (28) AND N<255 T 
HEN N=N+] :GOSUB 9200:GOTO 1510 
1530 IF XS=CHRS (31) AND N>9 THE 
N N=N-10:GOSUB 9200:GOTO 1510 
1540 IF X5=CHR$S (30) AND N<245 T 
HEN N=N+1]0:GOSUB 9200:GOTO 1510 
1545 GOTO 1510 

1550 FOR 1=0 TO 7:P(1)=0:FOR J= 
O TO ? 

1560 P(I)=P(I)J+B(I,J)*2" (7-9) 


1570 NEXT J 

1580 POKE k&HD100+N*B+I,P(TI) 
1585 POKE &HEIL0O0O+N*B+I,C(I) 
1590 VPOKE BASE (12) +N*B+I,P(I) 
1600 VPOKE BASE (11) +N*8+T,C(I) 
1610 NEXT IT:RETURN 

2000 GOSUB 9000:PRINT41,"(S)JAVE 
ou (L)JOAD 7" 

2010 XS=INKEYS:JF X5<>"S”" AND X 
8<>"L” THEN 2010 

2020 GOSUB 9100:IF X5="L” 
2100 

2030 GOSUR 9000:PRINT41,"Posici 

one o gravador”: PRESET(B,170):P 

RINT$41,"e aperte <ENTER>” 

2035 IF INKEYS<>CHAS (13) THEN 2 

035 

2040 BSAVE 

a7E 

2050 GOSUB 9100:RETURN 

2100 GOSUB 9000:PRINT&1,"Posici 

one o gravador": PRESET(B,170):P 

BINT41,"e aperte <ENTER>" 

2105 IF INKEYS<>CHAS (13) 

105 

2110 BLOAD "CAS:*" 

2120 GOSUB 9100 

2130 GOSUB 9000:PARINT4I,"(V) pa 

ra ver o banco”: PRESET(B,170):P 

RINT41," (ENTER) para voltar a e 

dição” 

2140 XS=INKEYS: IF X5="" THEN 21 

ao 

2150 

9100 

2160 

2170 


THEN 


"CAS: UDG” ,4HD100,&HF 


THEN 2 


IF X5S=CHBRS (139) 
“RETURN 

TE X5<>"V” THEN GOTO 2140 
FOR N=0 TO 255 

2180 FOR J=0 TO 7 

2190 VPOKE BASE(12)+N*8B+),PEEK( 
&HD100+N*8+]) 
2200 VPOKE BASE 
RHE100+N*B+J) 
2220 NEXT J,N 
2230 GOSUB 9100:RETURN 

2500 GOSUB 9000: PRINT41,"Nimero 
da cor de frente (0-F)" 

2510 XS=INKEYS: IF X5="" THEN 25 
10 

2515 IF X5S<"0" OR (XS5>"9"AND XS5 
<"A") OR XS>"F” THEN 2510 

2520 C=VAL(CEHC+XS) :Cl=C:C2=F 
2530 GOSUB 9100:RETURN 

2600 GOSUB 9000:PRINT41),"Niimero 
da cor de fundo (0-F)” 


THEN GOSUB 


1) +NXB+J, PEEKL 


i ' aci | am: 





2610 XS=INKEYS:IF X5="" THEN 26 
10 

2615 IF XS<"0" OR (XS>"9"AND XS5 
<"A”") OR XS>"F” THEN 2610 

2620 F=VAL("RH"+XS) :Cl=C:C2=F 
2630 GOSUB 9100:RETURN 

9000 OPEN "GRP:" FOR OUTPUT AS 
t1: PRESET(8,160):COLOR 1,15:RET 
URN 

9100 CLOSE 1:LINE 
191),15,BF:RETURN 
9200 LINE (190,168)-(255,191),1 
5, BF:GOSUB 9000: PRESET(190,168) 
: PRINT4&L,N:CLOSEL: RETURN 


é SS 


Até agora, sempre que precisávamos 
de um desenho em alta resolução, usá- 
vamos o comando DRAW. Este é mui- 
to bom para figuras móveis, devido à ve- 
locidade de operação. Ele apresenta, 
contudo, dois inconvenientes: a exten- 
são dos dados, já que as regras de defi- 
nição das figuras são bem complicadas, 
e a dificuldade na utilização de cores, 
pois as figuras ficam deformadas quan- 
do coloridas. 

O Apple e o TK-2000 também podem 
mostrar na tela caracteres definidos pe- 
lo usuário, usando regras bem seme- 
lhantes às dos demais micros. Tais re- 
gras devem ser empregadas quando for 
importante a cor, mas não a velocida- 
de. Convém, nesse caso, consultar as se- 
ções correspondentes, dedicadas a ou- 
tros computadores. 

Quando executamos o programa, ve- 
mos um quadriculado de 8 x 8 pontos 
na tela. Este será o “papel quadricula- 
do” onde desenharemos nosso bloco 
gráfico. 

Temos também um cursor, na forma 
de um ponto. Para movimentá-lo, uti- 
lizamos as teclas Z, X, P e L, como de 
costume. Usando a barra de espaço po- 
demos “acender” o ponto correspon- 
dente, apagando-o com a tecla A. 

Para obtermos caracteres coloridos, 
precisamos entender como o Apple e o 
TK-2000 representam cores na tela. Em- 
bora nosso quadriculado tenha oito 
pontos de largura (ou seja, na horizon- 
tal), na tela aparecerão apenas os sete 
primeiros (a partir da esquerda). São, 
portanto, quarenta posições com sete 
pontos cada, resultando nos 280 pontos 
da tela de alta resolução. Se um ponto 
da linha estiver apagado, aparecerá em 
preto. Caso esteja aceso, contudo, sua 
cor vai depender de sua posição na te- 
la. Se o ponto ocupar uma posição par, 
será violeta. Se ocupar uma posição im- 
par, será verde. Tais regras se aplicam 
quando o oitavo ponto, que fica na ex- 
trema direita do bloco e não aparece na 
tela, estiver apagado. Se o oitavo pon- 
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to estiver aceso, as cores violeta e verde 
serão substituídas por azul e vermelho, 
respectivamente. Se dois pontos adja- 
centes estiverem acesos, assumirão a cor 
branca, 

Existem, assim, seis cores disponíveis 
no modo de alta resolução. Sua exibi- 
ção, porém, está sujeita às seguintes li- 
mitações: 

1. Ponto em coluna impar é preto, 
violeta ou azul. 

2. Ponto em coluna par é preto, ver- 
de ou vermelho. 

3. Cada linha de bloco pode ter as co- 
res violeta e verde ou azul e vermelha. 
Não é possível misturar cores de grupos 
diferentes na mesma linha. 

d. Dois pontos adjacentes e acesos fi- 
carão brancos, mesmo que estejam em 
linhas diferentes. 

Deve-se ressaltar ainda que as cores 
dependem da posição do ponto na tela, 
e não no bloco gráfico. Isto quer dizer 
que a cor do ponto varia com a sua 
coordenada horizontal — de O a 279. 
Como a largura de cada linha de bloco 
na tela é de sete pontos, quando plane- 
jamos um bloco não sabemos quais os 
pontos que irão ocupar posições pares 
ou ímpares. Uma vez que tenhamos de- 
senhado o nosso bloco, podemos guar- 
dá-lo no banco de memória do progra- 
ma. Para isso, basta apertar a tecla 6. 
O computador pergunta então em qual 
posição do banco vamos colocar o ca- 
ractere — O a 300. Informado esse nú- 
mero, O caractere é mostrado na tela, em 
posição correspondente à do banco e em 
tamanho natural. Sua cor dependerá da 
posição no banco. Para facilitar o tra- 
balho, é conveniente armazenar os blo- 
cos nas posições pares, onde é possível 
planejar as cores, pois as colunas da te- 
la coincidem com as do bloco. Nas po- 
sições ímpares, as cores são de grupos 
invertidos, já que as posições pares e ím- 
pares são invertidas. 

O banco nada mais é que uma por- 
ção protegida de memória. Ele pode 
ocupar a página 2 de gráficos, tornan- 
do o trabalho mais simples. Essa pági- 
na, porém, não deve ser usada enquan- 
to o programa estiver no micro. 

O uso da tecla R permite recuperar 
um bloco gravado no banco, trazendo 
seu desenho para o quadriculado. O blo- 
co recuperado, por sua vez, permanece 
no banco. Um mesmo bloco pode ser 
guardado em diferentes posições. 





COMO GRAVAR EM DISCO E FITA 


Aqueles que dispõem de unidade de 
disco podem usar a tecla T para gravar 
ou carregar todo o conteúdo do banco 














de memória. Feito isso, o computador 
perguntará qual a opção desejada. Se 
você selecionar a primeira opção, o con- 
teúdo do banco será gravado. Não se es- 
queça, portanto, de guardar o último 
bloco editado. 

Quando carregamos um banco, as 
posições que não contêm blocos são 
preenchidas por linhas brancas. 

Quem não dispõe de disco, ou tem 
um TK-2000, deve parar o programa — 
com <RESET> ou <CTRLX><C> 
— para poder gravar O banco de me- 
mória em fita. Para tanto, é preciso usar 
o monitor, digitando CALL —151 — 
ou LM no TK-2000. A seguir, digite (no 
Apple): 


4000.5FFF W 

No caso do TK-2000, temos algumas 
modificações: 
AO0O.BFFF W 


Para ler a fita, troque a letra W por R. 

Depois de ter carregado o banco, exe- 
cute novamente o programa. O conteú- 
do do banco poderá ser visualizado por 
meio da tecla T (caso tenham sido fei- 
tas as modificações sugeridas). 

Na próxima parte do artigo, traremos 
mais informações sobre a criação e uti- 
lização de blocos gráficos no Apple. 
Além disso, novas funções serão acres- 
centadas ao gerador de blocos. 


“nome” 


HGR HCOLOR= 3: DIM 
B(B,8) 

20 E = 16384:T = 8192 

30 GOSUB 1030 

50 X = 108:Y = 72: GOTO 200 

60 GET KS:LX = X:LY = Y 


70 IF KS = "Z" AND X > 108 THE 
NX=X- 8: GOTO 200 

BO IF KS = "X” AND X < 164 THE 
NX =X + B: GOTO 200 

90 IF KS = "Pº AND Y > 72 THEN 
Y=Y-7: GoTo 200 

100 IF K$ = "L” AND Y < 121 TH 
EN Y = Y + 7: GOTO 200 

110 IF K$ =" ” THEN B((Y - 72 


) 4 7, (X - 108) / 8) = 1: HCOLO 
R= 2: GOSUB 500: GOTO 200 


120 IF KS = "A” THEN B((Y - 72 
1) 4 7. (X - 108) / 8) = O: HCOLO 
R= 0: GOSUB 500: GOTO 200 

130 IF KS = "G” THEN GOSUB 15 
00: GcoTo 50 

140 IF KS = "R” THEN GOSUB 10 
00: GoTo 50 

150 IF K5S = "T” THEN GOSUB 20 
00: GoTo 50 

200 HCOLOR= 0: HPLOT LX + 3,LY 


+ 4 TO LX + 4,LY + 3: HPLOT LX 
+ 4,7 + 4 TO LX + 3,LT +93 
210 HCOLOR= 5: HPLOT XX + 3,7 + 
4 TO X+ 4,7 + 3: HPLOT X + à, 
+44 70X TIS Ta 


230 GOTO 60 

500 FOR K=X+ 1 TOX+ 6: HP 
LOT K,Y + 1 TO K,Y + 6: NEXT : 
RETURN 

1000 HOME : VTAB 22: INPUT "QU 


AL O NUMERO DO BLOCO 2?2";N: IF N 
> 320 THEN 1000 

1005 FOR I =0TO7:P(I) = PE 

EK (E + N* 8 + IT) 

1010 FOR J = 0 TO/ 

1015 B(I,J) = P(I) - INT (P(I) 
f 2) * 2:P(I) = INT (PO) / 2 
) 

1020 HCOLOR= 2 * B(I,J): FOR K 
= 109 + 8 *J TO Jl4 + 8 *J: 
HPLOT K,73 + 7 *4 I TO K,78 + 7 


* I: NEXT K,J,l 

1025 HOME RETURN 

1030 HCOLOR= 3 

1040 FOR I = 108 TO 172 STEP B 


: HPLOT 1,72 TO 1,127: NEXT 
1050 


FOR I = 72 TO 128 STEP 7: 
HPLOT 108,1 TO 172,1: NEXT 
1060 RETURN 
1500 HOME : VTAB 22: INPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF N 
> 320 THEN 1500 
1502 L = INT Q(N/ 40):C=N- 


L * 40 
1505 FORI =0OTOZ:P(I) =õoO: 
FOR J = 0 TO 7 


1510 P(I) = PlI) + B(1I,J) * 2 0 
J 

1520 NEXT J: POKE E + N * B + 
I,P(I) 

1525 POKE T+ L* 128 + C+ 10 
24 * I,P(I) 

1530 NEXT I: HOME RETURN 
2000 HOME : VTAB 22: INPUT "(5 
JAVE OU (L)OAD ?7";AS: IF AS < 

> "8" AND AS < > "L” THEN 2000 
2010 INPUT "NOME DO ARQUIVO 7" 
:ARS 

2020 IF AS = "L” THEN 2100 
2030 PRINT PRINT CHAS (4);” 

BSAVE ";ARS;",A”;E;",L3000”7 
2040 HOME : RETURN 

2100 PRINT PRINT CHARS (4);" 

BLOAD ";ARS 

2110 FOR N = O TO 320 

2120 L = INT G(N/ 40):€C=N- 
L * 40 

2130 FOR I = O TO? 

2140 POKE T+ L* 128+C+ 10 
24 * I, PEEK (E + N * 8 + T) 


2150 NEXT I,N 
2160 HOME RETURN 


Aqueles que não dispõem de unida- 
de de disco não devem copiar as linhas 
2000 a 2100. Uma instrução REM deve 
ser colocada na linha 2000. 
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Os usuários do TK-2000 não devem 
copiar as linhas 2000 a 2100, fazendo 
ainda as seguintes modificações: 


20 E = 40960:T = 8192 


EA NR E E E E ES 





No Spectrum podem-se criar novos blocos... 
Quando colocamos o programa pa- 
ra funcionar, ele nos faz duas pergun- 
tas iniciais, relacionadas com o tipo de 
bloco gráfico que queremos criar. 

A primeira se refere ao PMODE de- 
sejado. PMODEA4 nos dá uma grande 
resolução em preto e branco ou em pre- 
to e verde apenas. A segunda opção, 
PMODE3, tem uma resolução três ve- 
zes mais baixa na horizontal — pontos 
com o triplo de largura —, mas permite 
que usemos quatro cores. 

A segunda pergunta diz respeito ao 
conjunto de cores que vamos utilizar. 
SCREENO no PMODE4 nos dá preto e 
verde, enquanto em PMODE3 nos dá 
vermelho, azul, verde e amarelo. 
SCREENI nos dá preto e branco em 
PMODES4 e ciano, magenta, laranja e 
branco em PMODES. 

Feitas estas opções, não poderemos 
mais mudar o PMODE sem usar RUN 
novamente, embora possamos mudar o 
SCREEN. 

A seguir, o computador coloca na te- 
la o quadriculado, que é a base para o 
desenho do bloco gráfico. Podemos en- 
tão usar as setas para mover O cursor € 
assim desenhar o bloco. 

Com o cursor sobre um determina- 
do ponto, devemos pressionar < EN- 
TER> para acender esse ponto. Para 
apagar pontos, basta mudar sua cor, co- 
mo veremos mais adiante. 

Dessa forma, desenharemos nosso 
bloco rápida e facilmente. A porção se- 
guinte do programa terá uma opção de 
uso de joystick. 

Como podemos observar, o quadri- 
culado não é o único quadrado na tela: 
abaixo dele há mais oito e à sua direita, 
mais dois. 

Os dois da direita são versões atuali- 
zadas do bloco criado, em modo normal 
e invertido. A medida que desenhamos, 
esses dois ''modelos"' vão mudando, de 
maneira a possibilitar a visualização do 
resultado em tamanho real. 

























































«OU Usar os caracteres do próprio micro. 


Os oito quadrados na parte inferior 
da tela servem para guardar os blocos 
que já foram criados. Isso significa que 
até oito blocos podem ser guardados ao 
mesmo tempo no banco de memória do 
programa. Alguns desses blocos não são 
visíveis, uma vez que têm pontos com 
a mesma cor do pano de fundo. Eles não 
mudam junto com a edição, mas sim 
quando guardamos no banco um carac- 
tere recém-criado. 





AS TECLAS DE CONTROLE 


O programa tem uma série de teclas 
de controle, que nos possibilitam fazer 
opções. 

Duas delas são fundamentais: as te- 
clas Se G. S guarda no banco de me- 
mória o bloco que foi editado. Quando 
pressionamos essa tecla, O programa nos 
pede um número de 1 a 8, que corres- 
ponde à posição do bloco no banco. Is- 
so permite que substituamos qualquer 
um dos blocos do banco. 

Já a tecla G, seguida do número cor- 
respondente, faz a operação inversa — 
recupera um bloco do banco e o coloca 
no quadriculado. Embora o programa 
utilize uma rotina em linguagem de má- 
quina, o processo leva alguns segundos. 

Recuperar um bloco não modifica o 
conteúdo da posição correspondente no 
banco. Assim, podemos recuperar um 
determinado bloco do banco, trazendo- 
o para o quadriculado quantas vezes 
quisermos, desde que não guardemos 
nada na mesma posição do banco. 

Essa parte do programa utiliza duas 
outras teclas de controle. Se pressionar- 
mos C, mudaremos a cor. Se estivermos 
em um modo com quatro cores, pode- 
mos usar qualquer uma delas. No mo- 
do de duas cores, escolhemos uma ou 
outra. Selecionada a cor adequada, 
podemos apagar qualquer ponto, corri- 
gindo, assim, eventuais erros cometidos. 
Após digiar C, devemos informar o nú- 
mero da cor desejada. 

A última tecla de controle dessa par- 


Blocos mais largos no TR$-Color. 


te do programa é T, que permite a gra- 
vação ou a recuperação de todo um ban- 
co de memória contendo oito blocos. 


10 CLEAR 200,30998:DEFUSRO=3100 
0 

20 T=0:FOR K=0 TO 43:READ N:T=T 
+N:POKE K+31000,N:NEXT:READ C:I 
F T<>C THEN PRINT "ERRO NOS DAD 
08": END 

50 DATA 189,179,237,31,3,142,12 
3,12,230,192,134,8,183,121,68,7 
9,88,73,122,121,68,125,121,23 
60 DATA 39,5,88,73,122,121,68,1 
67,128,125,121,68,38,233,140,12 
5,76,38,221,57,4725 

110 CLS:PRINT"SELECIONE MODO GR 
AFICO (3-4)"; 

120 AS=INKEYS:IF AS<"3” OR AS>"” 
4” THEN 120 

130 T=5-VAL (AS): PRINT AS 

140 PRINT"SELECIONE TIPO DE TEL 
A(O-1)"; 

150 AS=INKEYS:IF AS<"0" OR AS>" 
1" THEN 150 

160 PRINT AS:ST=VAL (AS) 

200 PMODE 5-T,1 

210 DIM A(l4),Ci(1),CZ2(1),€C3(1) 
,5C4 (1) 
220 PCLS 
230 PCLS 


á:GET(0,0)-(9,5),C4,6 

3:GET(0,0)-(9,5),C3,6 

240 PCLS 2:GET(0,0)-(9,5),C2,6 

250 PCLS 1:GET(0,0)-(9,5),C1,6 

260 PCLS:SCREEN 1,ST 

270 C=-1:F=3*T-2:GOSUB 2070 

280 FOR X=B TO 255 STEP 32:C=(C 
+1) AND 3:COLOR C+I:LINE(X,165) 
- (X+23,188), PSET, BF:NEXT:COLOR 

6-T 

290 FOR X=3 TO 147 STEP T*H6:LIN 
E (X,3)-(X,147), PSET:NEXT 

300 FOR Y=3 TO 147 STEP 6:LINE 

(3,Y)- (147,7), PSET:NEXT 

310 X=12:Y=12 

320 Xl=X*6+4: Yl=yx6+4 

330 PUT(XI,Y1)-(X1+5*T-1,Y1+4), 
C1,NOT 

340 AS=INKEYS 

350 GOSUB 1500 

360 IF A$="" THEN 3680 

370 ON INSTR("PCTROSMIV”,AS) GO 
SUB 2200,2500,2300,2800,2600,27 
00,2900,2100,2400 

380 IF Y<O THEN Y=23 

390 IF Y>23 THEN Y=0 






400 IF X<O THEN X=24-T 
410 IF X>23 THEN X=0 
420 GOTO 320 

1500 PUT (X1,Y1)-(X1+5*T-1,Y1+4 
) ,C1,NOT 
1510 IF 
1520 IF 
1530 IF 


PEEK (338) =191 008UB2000 
PEEK (343)=247 THENX=K-=T 
PEEK (344) =247 THENX=K+T 
1540 IF PEEK(341)=247 THENY=Y-1 
1550 IF PEEK(3J42)=247 THENT=Y+1 
1560 RETURN 

2000 GOSUB 4000 

2010 P=3*Y+INT(X/8):PX=7-X+B8*IN 
T(X/8B) 

2020 IF T=2 THEN VL=F-l ELBE VL 
== (Fw1) 

2030 PK=PEEK (P+VARPTAR (A (0))) 
2040 PK=PK AND(255.1-2ºPK):IF T 
=2 THEN PK=PK AND(255.1-2" (PX-1 
1) 

2050 PK=PK OR VL*2" (PX+1=T) 
2060 POKE P+VARPTA(A(0)),PK 
2070 PUT (216,10)-(239,33),A,P8B 
ET 

2080 PUT (216,70)-(239,93),A,PR 
ESET 

2090 RETURN 

2100 RETURN 

2200 RETURN 

2300 AS=INKEYS:IF AS<>"5”" AND A 
8<>"L” THEN 2300 

2310 IF AS="S8" THEN 2330 

2320 CLOADM: SCREEN 1,ST:RETURN 
2330 CSAVEM"",68B00,7679,6800 
2340 SCREEN 1,S8T:RETURN 

2400 ST=1-8T:SCREEN 1,5T:RETURN 
2500 AS=INKEYS:IF AS<"0”" OR AS> 
"8" THEN 2500 

2510 F=( (VAL (AS)-1)AND 3)+1:RET 
URN 

2600 AS=INKEYS:IF AS<"1" OR AS> 
"8" THEN 2600 

2610 J=VAL(AS)-1 

2620 GET (J*32+8,165)-(J*32+31,1 
B8B),A 

2630 GOSUB 3000:G0TO 2070 

2700 AS=INKEYS:IF AS<"1” OR AS> 
"8" THEN 2700 

2710 J=VAL(AS)-1 

2720 PUT(J*432+8,165)-(J*32+31,1 
B8),A,PSET 

2730 RETURN 

2800 RETURN 

2900 RETURN 

3000 CL=F:POKE 30999, T-1:N=USRO 
(VARPTR(A(0))) 

3010 FOR K=0 TO 23:FOR J=0 TO 2 
3 STEP T: F=PEEK(31500+K*24/T+J 
fT)+3-T 

3020 Xl=J*6+4: Yl=K*6+4 

3030 GOSUB 4000:NEXT J,K:F=CL:R 
ETURN 

4000 ON F GOTO 4010,4020,4030,4 
040 

4010 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
| C1, PSET: RETURN 

4020 PUT(X1,Y1)-(X1+5*T-1, Yl+4) 
,€C2, PSET: RETURN 

4030 PUT(X1I,Y1)-(X1+5*T-1,Y1+4) 
|C3, PSET: RETURN 

4040 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
, Cá, PSET: RETURN 
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Os usuários do TK-2000 frequente- 
mente se decepcionam quando tentam 
sem sucesso adaptar programas de jo- 
gos feitos para outras máquinas, como 
o MSX ou TRS-Color. A causa dessa 
frustração é a ausência de uma função 
muito importante: o comando INKEYS. 

O que faz o INKEYS? Existe uma 
maneira de substituí-lo por algum ou- 
tro comando próprio do TK-2000, que 
cumpre a mesma função? A resposta 
(positiva) já foi brevemente abordada 
no artigo E agora... O que Fazer? (pá- 
gina 161). Aqui vamos estudar tudo is- 
so mais detalhadamente, Assim, você 
mesmo poderá adaptar os programas de 
jogos mostrados nos artigos das páginas 
28, 46. 61, 121 e 153. 


“O COMANDO GET 





O INKEY$ pode, em muitos casos, 
ser substituído pelo comando GET, que 
existe no TK-2000. A utilização desse 
comando é muito simples. Ele é equiva- 
lente ao INPUT, só que aceita apenas 
um caractere de cada vez, e não exige 
que se pressione a tecla < RETURN > 
para dar prosseguimento ao programa. 


da 


Além disso, a tecla pressionada não é 
mostrada na tela. d 
Desse modo, muitos progra 
outras máquinas, que usam o INKE 
apenas para realizar tais funções, poc em 
ser adaptados para o TK-2000 com o au- 
xílio do comando GET. Por exemp O, 
uma linha programada para nt 
per o fluxo do programa até que O usu 
rio pressione uma tecla qualquer. 





1000 PRINT "PRESSIONE QUALQUER | 


TECLA” 
1010 LET AS=INKEYS 
1020 IF A$="" THEN GOTO 1010 


Isso poderia até ficar mais simples no 


TK-2000 (e no Apple 1): 


| 
e | 
q 
+ 1 





1000 PRINT "PRESSIONE QUALQUER | 


TECLA” 


O INKEY$ na linha 1010 do primei- 
ro programa é uma função do BASIC, 
cujo objetivo é “varrer” o teclado e ve- 
rificar se alguma tecla foi pressionada, 
Se isso acontecer, O caractere correspon- 
dente será devolvido ao programa. No 
caso da linha 1010, esse caractere será 
armazenado na variável AS$. Se nenhu- 
ma tecla tiver sido pressionada, O cor- 
dão vazio, '”", será retornado, Por is- 
so, há necessidade da linha 1020. 

Já o comando GET não é uma fun- 
ção. De forma semelhante ao comando 
INPUT, ele interrompe o programa e fi- 
ca aguardando até que uma tecla qual- 
quer seja pressionada, Só então, ele ar- 
mazena esse caractere na variável-argu- 


mento (no caso, A$), e passa para a li- 
nha seguinte do programa. 





UM GET COM MOVIMENTAÇÃO 


A principal desvantagem do GET, 
entretanto, é que ele interrompe o flu- 
xo do programa até que a tecla seja pres- 
sionada. Em contrapartida, a grande 
vantagem do INKEYS é que o compu- 
tador pode ser programado para fazer 
outras coisas, enquanto espera que O 
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usuário pressione alguma tecla. No pro- 
grama apresentado, por exemplo, pode- 
riamos colocar outras linhas de progra- 
mação entre as linhas 1010 e 1020 (para 
contar o tempo passando, movimentar 
objetos gráficos na tela etc). 

Ora, o GET não permite fazer isso. 
Daí por que se torna necessário encon- 
trar um substituto. 

Não existe nenhum comando ou fun- 
ção específicos para isso no TK-2000. 
Porém, a função PEEK, que é usada pa- 


ra examinar uma posição absoluta de 
memória (veja artigo da página 261), 
pode ser usada para ''varrer”” o tecla- 
do. A locação de memória número 39 
(decimal) serve para essa finalidade. En- 
quanto nenhuma tecla for pressionada 
essa locação conterá o número 48 (de- 
cimal). Quando uma tecla for pressio- 
nada, um valor diferente deste será de- 
positado automaticamente na memória. 
O programa seguinte ilustra como po- 
demos aproveitar essa propriedade: 















10 HOME 

20 LET K=PEEK (39) 

30 IF K<>48 THEN PRINT K 
40 goTo 20 


A linha 20 copia o conteúdo da me- 
mória 39 na variável K, A 30 mostrará 
esse valor na tela apenas se ele for dife- 
rente de 48, ou seja, se alguma tecla ti- 
ver sido pressionada. Em caso contrá- 
rio, o programa saltará de novo para a 
linha JO, de modo a manter vigilância 
sobre a memória 39, 

O único problema é que os códigos 
numéricos retornados para cada tecla 
pressionada não correspondem ao códi- 
go ASCII dos caracteres aos quais elas 
estão atribuídas. 

Essa dificuldade, entretanto, pode ser 
facilmente solucionada por uma peque- 
na tabela de conversão, mostrada no fim 
deste artigo. Mas, se você preferir, po- 
de descobrir quais são esses códigos 
usando o programa, 

Para entender melhor como o co- 
mando PEEK (39) pode ser usado no lu- 
gar do comando INKEYS, acompanhe 
o programa apresentado a seguir. Ele 
desenha uma reta na tela, orientada em 
determinada direção. Pressione uma das 
teclas de controle do cursor (flechas) 
uma única vez, e a linha sofrerá uma 
mudança de direção. 

Ao ser acionada a tecla < FIRE >, o 
programa terminará. 


LO HGRZ:HCOLOR 3 

20 LET X=100:7=90:DX=1:DY=0Q 

30 HPLOT X,Y 

40 FOR I=1 TO 40:NEXT 1 

50 LET P=PEEK (39) 

60 IF P=48 THEN X=X+DX:Y=Y+DY: 
GoTo 30 

70 IF P=36 THEN DX=0:DY=-1:GOTO 
30 

BO IF P=30 THEN DX=0:DY=1:GOTO 


30 

90 IF P=18 THEN DX=-1:DY=0:GOTO 
30 

95 IF P=24 THEN DX=1:DY=0:GOTO 


100 IF P=46 THEN TEXT:END 
110 GOTO 30 


O laço principal do sistema está com- 
preendido entre as linhas 30 e 110. A cor 
ea posição inicial do ponto da tela são 
definidos nas linhas 10 e 20. A linha 20 
também define duas variáveis, DX e 
DY, que darão o incremento a ser so- 
mado a cada coordenada — X e Y —, 
quando o ponto for deslocado. Note 
que, com DX =1 e DY=0, inicialmen- 
te o ponto vai se deslocar de um em um 
só na direção horizontal. 

A linha 50 examina a memória vin- 
culada ao teclado. Se nenhuma tecla ti- 
ver sido pressionada, o código resultante 






é 48, e as variáveis X e Y são incremen- 
tadas de DX e DY, respectivamente, na 
linha 60. 

As linhas 70 a 100 verificam qual foi 
a tecla pressionada. Observe que os có- 
digos 36, 30, 18 e 24 correspondem às 
teclas do cursor; se uma destas for pres- 
sionada, os valores de DX e DY serão 
ajustados de modo a provocar movi- 
mento na direção apontada (a linha 40, 
por sua vez, serve apenas para diminuir 
a velocidade de deslocamento do ponto 
na tela), 

Finalmente, a linha 100 interrompe- 
rá o programa, quando a tecla <FI- 
RE > for pressionada. 





UM INKEYS MAIS SOFISTICADO 


O uso do comando PEEK implica a 
necessidade de trabalhar com valores 
não padronizados de códigos de teclas. 
Isso pode ser desvantajoso em muitas 
aplicações onde se deseja receber o có- 
digo ASCII da tecla, como também em 
programas de senha secreta (veja pági- 
na 166), e outros. 

Infelizmente, não existe nenhum 
PEEK apropriado para trabalhar com 
valores ASCII. Mas podemos ''enxer- 
tar” em nosso programa em BASIC 
uma pequena rotina em linguagem de 
máquina (cujo funcionamento não será 
explicado por enquanto), que atribua a 
um PEEK essa propriedade. 

Digite o comando NEW para apagar 
o programa anterior, e entre e execute 
o programa abaixo: 


1 FOR I=768 TO 774 
2 READ N:POKE I,N:NEXT 1 


Como você deve ter notado, aparen- 
temente não acontece nada, Tudo que 
o programa faz é carregar um progra- 
minha de sete bytes em código de má- 
quina numa parte não usada da memó- 
ria do micro, que começa na locação 
768. Isso é feito por intermédio do co- 
mando POKE na linha 2. O programa 
está armazenado na linha DATA, 

Depois de rodar o programa, você 
pode apagá-lo com o comando NEW, 
pois ele não será mais necessário (o pro- 
grama em código de máquina ficará ar- 
mazenado até que a máquina seja desli- 
gada). Mas, se você preferir, pode tam- 
bém deixá-lo onde está. 

Para fazer funcionar esse programa, 
é preciso utilizar o comando CALL 768 
(que indica o endereço onde começa o 
programa). Toda vez que isso é feito, o 
computador ''varre” o teclado e retor- 
na a um valor numérico corresponden- 
te ao código ASCII da tecla pressiona- 


E - = E — o > 


| | | | 


da, mais 128, Se nenhuma tecla for pres- 
sionada, o código O será retornado, Pa- 
ra encontrar esse valor, usamos o co- 
mando PEEK (1024). 

O programa abaixo faz um teste, 


10 HOME 

20 CALL 768 

30 K=PEEK (1024) 

40 IF K>0 THEN PRINT K 
50 GOTO 20 


Como você já deve ter observado, a 
lógica do programa é bem clara: a linha 
20 chama a rotina de máquina e retor- 
na o código da tecla pressionada na lo- 
cação 1024 de memória. 

A linha 40 imprimirá esse valor se es- 
te for maior do que 0, 

Ao executar o programa você nota- 
rá que os valores retornados aparente- 
mente não pertencem ao código ASCIL. 
A letra A maiúscula, por exemplo, re- 
torna 193; a letra B, 194, e assim por 
diante. Experimente diminuir 128 desse 
valor: o resultado será 65, 66 etc.: ou se- 
ja, o código ASCII. 

Tente agora substituir a linha 40 pe- 
lo seguinte programa: 


40 IF K>O THEN PRINT CHRS(K); 
Em seguida: 


40 IF K>159 THEN PRINT CHRS( 
K-128); 


Qual a diferença entre estas duas 
versões? 





UM PEQUENO TESTE 


Agora, como exemplo do uso do co- 
mando CALL, digite o programa: 


10 HOME: SPEED=100 

20 PRINT "TESTE DE DIGITACAO”: 
PRINT 

30 FOR I=1 TO 10 

40 LET T=0:NS$="" 

50 FOR N=1 TO 7 

55 LET R=48+INT(RND(1)*10) 

60 N5=NS+CHAS (R) :NEKT N 

70 VTAB 1LO:HTAB 15:PRINT NS 

BO VTAB 2ZO:HTAB 1:PRINT * 
":VTAB 20:HTAB 1 

90 LET R8="" 

100 FOR J=1 TO 7 

110 CALL 768:K=PEEK(1024) 

115 IF K>0 THEN 130 

120 LET T=T+1l:IF T>200 THEN 180 

125 GOTO 110 

130 LET KS=CHRS (K-128) :RS=RS+KS 

140 PRINT KS; 

150 NEXT J 

155 VUTAB lO:HTAB 15 

160 IF RS$=NS THEN PRINT 

"ACERTOU" :GOTO 190 

PRINT "ERROU !":GOTO 190 

VTAB 1LO:HTAB 15:PRINT 

"DEMOROU" 


170 
180 
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| | 
| | 
| | 
| ha | | 
o = — — — - —e == q ie E IE EE es 


190 FOR J=1 TO 1000:NEXT J 
200 NEXT 1 


O programa gera uma sequência alea- 
tória de sete dígitos e pede que eles se- 
jam teclados rapidamente. O objetivo 
do exercício é digitar o número todo, 
sem errar, dentro de um intervalo de 
tempo máximo. 

As linhas 50 a 70 geram esse núme- 
ro, armazenando-o na variável N$ e 
mostrando-o na tela. As linhas 100 a 150 
efetuam a leitura das teclas pressiona- 
das pelo usuário e a colocam em uma 
variável RS. 

Finalmente, as linhas 155 a 190 veri- 
ficam qual foi o resultado — este pode 
indicar várias alternativas, como erro, 
acerto, ou demora em datilografar to- 
do o número de teste. 

As linhas 110 e 115 efetuam a '*'var- 
redura”” do teclado para verificar se al- 
go foi pressionado. Em seguida, a linha 
120 aumenta a contagem de tempo (T), 
enquanto o usuário não pressiona ne- 
nhuma tecla. Se alguma tecla foi pres- 
sionada, as linhas 130 e 140 concatenam 
o resultado na variável de resposta e 
mostram o caractere em outra locação 
da tela. 





COMO FUNCIONA 


Quem conhece um mínimo de códi- 
go de máquina será capaz de entender 
facilmente o funcionamento da rotina 
768. Você pode tentar carregá-la no 
TK-2000 usando o Mini-Assembler, em 
lugar do programa apresentado linhas 
atrás. Simplesmente digite ASS e pres- 
sione <RETURN>. Depois, cada vez 
que aparecer um sinal de exclamação, 
digite as linhas abaixo. 

Para sair, pressione as duas teclas 
< RESET> ao mesmo tempo: 


300: JSR $F043 
303: STA $400 
306: RTS 


O número 300 está em hexadecimal: 
equivale ao 768 em decimal e é o ende- 
reço de origem da rotina (mas poderia 
ser um número diferente deste). 

O comando JSR pula para a sub- 
rotina em código de máquina armaze- 
nada no endereço FO43, hexadecimal, 
que efetua a varredura do teclado (JSR 
equivale ao GOSUB do BASIC). 

O comando STA copia o conteúdo 
do acumulador do micro (onde está o 
código da tecla pressionada) e o arma- 
zena na memória 1024 ($400 em hexa; 
mas poderia ser outra). 

Finalmente, o comando RTS retor- 
na para o BASIC. 





Caractere ASCII PEEK (39) CALL 768 | Caractere ASCII PEEK (39) CALL 768 


TABELA DE CÓDIGOS DE TECLA 






































nenhum  - 48 0 
espaço | 32 12 160 
33 151 161 
vo BA 150 162 
* 35º 149 163 
: 36 148 164 
% 37 147 165 
& 38 153 166. 
O 8 ARA 167 
4 155 168 
) a 156 169 
42 187 170 
j 43 163 171 
| 4 45 172 
45 181 173 
do al 174 
| A 13 175 
o) as 28 176 
1 4a 23 177 
2 so 22 178 
3 51 21 179 
4 82 20 180 
5 53 19 181 
6 54 25 182 
7 55 26 183 
8 56 27 184 
9 57 28 185 
A 6 mn 193 
B 86 1 194 


1 
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C Ma 195 
D 58 9 196 
E 9 15 197 
r 70 8 198 
G 71 7 199 
H 72 37 200 
| 73 33 201 
J 74 "98 202 
k 45 39 203 
L 76 40 204 
MOC aa 205 
N 78 43 206 
o 79 34 207 
| p 80 35 208. 
Q - DR: fr 209 
R 2 14 210 
s 83 10 211 
U 84 32 212 
v 85 2 213 
W 86 16 214 
x 87 4 215 
E 
Z 89 5 217. 
T—s- Ng aaa 240 
b ma Gr 
seo do Aê 
ai di SM 149 
<FIRE> 46 46 74 
<RETURN> 13 42 ao 























] = ci ; F = E R | 
| 
| | 





O comando PRINT USING controla a 
forma com a qual aparecem na tela os 
números e as cadeias alfanuméricas. 


Embora recursos de formatação co- 
mo a vírgula, a função TAB etc., fun- 
cionem bem na maioria das aplicações, 
em alguns casos é interessante contro- 
lar não só o posicionamento de núme- 
ros e nomes a serem exibidos no vídeo, 
como também os seus formatos. Ora, 1s- 
so não pode ser feito apenas pelo co- 
mando PRINT. Alguns micros dispõem 
para isso de um poderoso comando 
auxiliar do PRINT, que é chamado 
USING. Outros, porém, não contam 
com esse recurso. E o caso das linhas 
ZX-81, Spectrum, Apple II e TK-2000. 
Mais adiante, estudaremos um modo de 
superar essa dif iculdade, obtendo efei- 
tos semelhantes aos provocados pelo co- 
mando PRINT USING. 


apo 


PARA QUE SERVE O PRINT USING 





O PRINT USING facilita a especifi- 
cação de formatos de saída em tela, pos- 
sibilitando a programação de máscaras 
de saída. Para entender melhor como o 
USING funciona, digite o exemplo a se- 
guir, que mostra as raízes quadradas de 
dez números inteiros: 


10 CLS 

20 FOR I=1 TO 10 

30 PRINT USING “tt +. titt”; 
I;SQR(I) 

40 NEXT I 


Os números ficam alinhados em duas 
colunas e a coluna da direita tem todos 
os valores com quatro decimais. Para 
verificar o efeito do PRINT USING, 
substitua a linha 30 por: 


30 PRINT I,SQR(I) 


Para usar a especificação USING 
dentro de um PRINT basta colocar en- 
tre aspas o gabarito de saída. O carac- 
tere sustenido (%) indica onde deve ir 
cada dígito dos elementos da lista de saí- 
da. Um espaço em branco assinala on- 
de começa e termina o gabarito relativo 
a cada elemento. O ponto indica onde 
| deve ser feita a quebra entre as partes 


inteira e fracionária. 

O gabarito estabelecido pelo PRINT 
pode ter especificações sucessivas para 
mais de um item de saída (no exemplo, 
o mesmo PRINT mostra a variável 1 e 
o resultado da raiz quadrada de I, sen- 
do o primeiro com três dígitos). En- 
quanto existirem elementos de saída a 
serem impressos, após o USING, o com- 
putador continuará procurando gabari- 
tos dentro da cadeia entre aspas. 

O USING aceita ainda variáveis al- 
fanuméricas. 

A função STRINGS gera uma cadeia 
de caracteres, com o comprimento de- 
sejado: 

10 CLS 

12 INPUT "QUANTAS DECIMAIS ";N 
15 sig tt.” + STRINCGS(ND , 
ud Ê Lad 

20 FOR I=1 TO 10 

30 PRINT USING U$;I;SQR(I) 

40 NEXT I 

A tabela apresentada nesta página re- 
laciona os diversos sinais convencionais 
utilizados em um PRINT USING e seus 
efeitos para a especificação de gabari- 
tos, para números etc. 

O PRINT USING encontra suas apli- 
cações mais interessantes na formatação 
de relatórios de saída em tela ou impres- 
sora, onde se requer um controle perfei- 
to sobre o alinhamento de colunas, a 
formatação de valores numéricos etc. 
Uma única variável ou especificação en- 
tre aspas no USING pode ser usada pa- 
ra formatar uma linha de saída inteira 
da tabela. Se a linha for muito longa, 
o programa deve ser estruturado com 
base em vários PRINT USING separa- 
dos por pontos e vírgulas. 

É comum, em tabelas com valores mo- 
netários, empregar-se Os sinais + e — no 
final (e não no começo) da quantia. Isso 
também é possível no PRINT USING. 

Em programas para preenchimento 
automático de cheques, os sinais $ (ci- 
frão), $$ (duplo cifrão), ** (protegido) 
e **$ (cifrão protegido) especificam co- 
mo será preenchida a parte esquerda de 
campos com valores monetários: 


10 M$=" *xStHA, EEE, GRE. ET 
cruzados” 

15 D$=" tt/4t/HHEET 

20 INPUT "QUANTIA A SER PAGA ” 
: Q 

30 INPUT 


"DIA,MES,ANO”;D,M,A 





E  OQUEÉUMPRINTFORMATADO 
m PARA QUE SERVE O 
PRINT USING 

mM COMO USAR MÁSCARAS 
DE FORMATAÇÃO 


40 cLS 


50 PRINT "PAGUE-SE A QUANTIA DE 


60 PRINT USING M$;0Q; 
70 PRINT "NO DIA ”";:PRINT USING 
DS;D:;M;A 

O TRS-80 e o TRS-Color têm as mes- 
mas regras de uso do PRINT USING. 
Os sinais demarcadores são os mesmos, 
e a palavra USING deve suceder a ex- 
pressão PRINT. Já o MSX apresenta al- 
gumas diferenças: 
- Em vez do sinal de porcentagem (o), 
esse micro utiliza uma barra inversa (*.) 
para demarcar o espaço das cadeias al- 
fanuméricas. 
- O ampersand (&) serve para indicar 
uma substituição completa por uma ca- 
deia alfanumérica. 
- O termo USING pode ser misturado 
aos itens de uma linha de impressão: 


70 PRINT "NO DIA ";USING DS;D; 
M; A 


CARACTERES 
DO PRINT USING. 


Efeito 


Sinal 
| coloca um dígito numérico 





coloca um ponto decimal 


separa a parte inteira em 
grupos de três 


coloca um sinal negativo 
após um número negativo, 
ou branco após um positivo 


coloca um sinal — após um 
número negativo ou um sinal 
+ após um positivo 


erp a um formato exponen- 


FE um campo com aste- 
riscos à esquerda 


E O GilSÃO sa 
valor numérico 


coloca um cifrão e asteriscos 
à esquerda 
coloca o primeiro caractere de 
uma cadeia 

assinala o início o fim de um 
campo alfanumérico 











LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





HnznnENO PRÓXIMO NÚMEROHHEEEHHII! 


APLICAÇÕES 
Um programa para completar a geração de blocos gráficos. 
Inverta cores e formas e crie novos caracteres. 


PROGRAMAÇÃO DE JOGOS 
De como uma víbora desnutrida pode se transformar numa 
serpente gigantesca. Divirta-se com o jogo da cobra. 


PROGRAMAÇÃO BASIC 


Como planejar cuidadosamente a página-título e outras telas do seu programa. 


CÓDIGO DE MÁQUINA 


Como é armazenado um programa em BASIC. 
O uso do PEEK. 





cz8 39.00 


